***************************************
* Dataset: data_vaccine_replication   *
* November 2021                       *
***************************************

***********
* TABLE 1 *
***********

* US *

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Government competency
*--------------------------------------------------------------------------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Likelihood others comply
*-------------------------
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* SOCIAL CAPITAL

* Patience
*---------
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Generalized trust
*--------------------------------------------------------------------------------------
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Risk taking
*------------
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Dictator game sharing
*----------------------
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Altruism
*---------
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminister government
*---------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)


* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p2 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg p2 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p3 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg p3 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p1 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg p1 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Likelihood others comply
*-------------------------
reg d31_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p4 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg p4 i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* SOCIAL CAPITAL

* Patience
*---------
reg d33_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Generalized trust
*------------------
reg d16_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Risk taking
*------------
reg d32_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Dictator game sharing
*--------------------------------------------------------------------------------------
reg d34_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Charitable giving
*------------------
reg d35_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)


***********
* Table 2 *
* ebal    *
***********

* Entropy balancing -- US
*------------------------
* Covariated used: gender, age, education, income and a not-in-work dummy

ebalance vaccine gender age d21_us d4_us nowork_us if sample=="US"
rename _webal webalus

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Government competency
*----------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Likelihood others comply
*-------------------------
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* SOCIAL CAPITAL

* Patience
*---------
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Generalized trust
*------------------
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Risk taking
*------------
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Dictator game sharing
*----------------------
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Altruism
*---------
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)


* Entropy balancing -- UK
*------------------------
* Covariated used: gender, age, education, income and a not-in-work dummy

ebalance vaccine gender age d20_uk d3_uk nowork_uk if sample=="UK"
rename _webal webaluk

* GOVERNMENT ASSESSMENT

* Trust in Westminster government
*--------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Likelihood others comply
*-------------------------
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Patience
*---------
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Generalized trust
*------------------
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Risk taking
*------------
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Dictator game sharing
*----------------------
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Charitable giving
*------------------
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)


*******************
* APPENDIX TABLES *
*******************

*********************
* S3 Table          *
* Balance tests     *
*********************

* US *
ttest gender if sample=="US", by(vaccine)
ttest age if sample=="US", by(vaccine)
ttest edu_us if sample=="US", by(vaccine)
ttest d4_us if sample=="US", by(vaccine)
ttest nowork_us if sample=="US", by(vaccine)

* UK *
ttest gender if sample=="UK", by(vaccine)
ttest age if sample=="UK", by(vaccine)
ttest edu_uk if sample=="UK", by(vaccine)
ttest d3_uk if sample=="UK", by(vaccine)
ttest nowork_uk if sample=="UK", by(vaccine)


***************************
* S4 Table                *
* Lockdown assessment     *
***************************

* US *

* Introduction of lockdowns
*--------------------------
reg d27_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d27_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d27_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Easing of lockdowns
*--------------------
reg d28_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d28_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d28_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Severity of measures
*---------------------
reg d29_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d29_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d29_us_recoded i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* UK *

* Introduction of lockdowns
*--------------------------
reg d26_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d26_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d26_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Easing of lockdowns
*--------------------
reg d27_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d27_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d27_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Severity of measures
*---------------------
reg d28_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d28_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d28_uk_recoded i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)


***************************************
* S5 Table              		 	  *
* Hour clustered standard errors only *
***************************************

* US * 

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Government competency
*----------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Likelihood others comply
*-------------------------
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* SOCIAL CAPITAL 

* Patience
*---------
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Generalized trust
*------------------
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Risk taking
*-------------
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Dictator game sharing
*----------------------
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* Charitable giving
*------------------
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl hour)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl hour)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminster government
*--------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Likelihood others comply
*-------------------------
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* SOCIAL CAPITAL 

* Patience
*---------
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Generalized trust
*------------------
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Risk taking
*------------
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Dictator game sharing
*----------------------
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)

* Charitable giving
*------------------
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl hour)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl hour)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl hour)


***************************************
* S6 Table                            *
* Half day-clustered standard errors  *
***************************************

* US * 

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Government competency
*----------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Likelihood others comply
*-------------------------
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* SOCIAL CAPITAL 

* Patience
*---------
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Generalized trust
*------------------
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Risk taking
*-------------
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Dictator game sharing
*----------------------
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* Charitable giving
*------------------
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl half_day)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl half_day)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminster government
*--------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Likelihood others comply
*-------------------------
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* SOCIAL CAPITAL

* Patience
*---------
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Generalized trust
*------------------
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Risk taking
*------------
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Dictator game sharing
*----------------------
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)

* Charitable giving
*------------------
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl half_day)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl half_day)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl half_day)


*************************************************
* S7 Table              		 	  			*
* Hour clustered standard errors with state FEs *
*************************************************

* US * 

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Government competency
*----------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Likelihood others comply
*-------------------------
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Patience
*---------
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Generalized trust
*------------------
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Risk taking
*------------
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Dictator game sharing
*----------------------
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* Charitable giving
*------------------
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight], vce(cl hour)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled i.currentusstateofresidence_num [pweight = weight] if d25_us==1, vce(cl hour)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminister government
*---------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Likelihood others comply
*-------------------------
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Patience
*---------
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Generalized trust
*------------------
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Risk taking
*------------
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Dictator game sharing
*----------------------
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)

* Charitable giving
*------------------
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight], vce(cl hour)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if highexposure==1, vce(cl hour)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled i.currentukareaofresidence_num [pweight = weight] if d24_uk==1, vce(cl hour)


***************************************
* S8 Table               		 	  *
* Interactions with risk and exposed  *
***************************************

* US *

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d18_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Trust in elected politicians
*-----------------------------
reg d19_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d19_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Government competency
*----------------------
reg d30_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d30_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p2 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Economic concern
*-----------------
reg p3 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p3 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p1 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Likelihood others comply
*-------------------------
reg d32_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d32_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d11_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*---------------------
reg wp1_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg wp1_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Willingness to comply
*----------------------
reg p4 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p4 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* SOCIAL CAPITAL

* Patience
*---------
reg d34_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d34_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Generalized trust
*--------------------------------------------------------------------------------------
reg d17_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d17_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Risk taking
*------------
reg d33_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d33_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Dictator game sharing
*----------------------
reg d35_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d35_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* Charitable giving
*------------------
reg d36_us 1.vaccine#1.highexposure i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d36_us 1.vaccine#1.d25_us i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)

* UK *

* GOVERNMENT ASSESSMENT
*----------------------

* Trust in Westminster government
*--------------------------------
reg d17_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d17_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Trust in elected politicians
*----------------------------- 
reg d18_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d18_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Government competency
*----------------------
reg d29_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d29_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p2 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Economic concern
*-----------------
reg p3 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p3 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p1 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Likelihood others comply
*-------------------------
reg d31_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d31_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d10_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg wp1_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Willingness to comply
*----------------------
reg p4 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p4 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Patience
*---------
reg d33_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d33_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Generalized trust
*------------------
reg d16_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d16_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Risk taking
*------------
reg d32_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d32_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Dictator game sharing
*----------------------
reg d34_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d34_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)

* Charitable giving
*------------------
reg d35_uk 1.vaccine#1.highexposure i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d35_uk 1.vaccine#1.d24_uk i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)


*****************************************
* S9 Table             		 	        *
* Treatment effects by news consumption *
*****************************************

* US *

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Government competency
*----------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg p2 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg p3 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg p1 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Likelihood others comply
*-------------------------
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d32_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d11_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg wp1_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg p4 i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* SOCIAL CAPITAL

* Patience
*---------
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d34_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Generalized trust
*------------------
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d17_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Risk taking
*------------
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d33_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Dictator game sharing
*----------------------
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d35_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* Altruism
*---------
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==1, vce(cl currentusstateofresidence)
reg d36_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highnews==0, vce(cl currentusstateofresidence)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminister government
*---------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* MEASURES OF ANXIETY

* Concern for you and your family
*--------------------------------
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg p2 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Economic concern
*-----------------
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg p3 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* BELIEFS ABOUT THE WORLD

* Seriousness compared to flu
*----------------------------
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg p1 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Likelihood others comply
*-------------------------
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d31_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Luck vs effort income differences are acceptable
*-------------------------------------------------
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d10_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* ELICITED BEHAVIORS

* Willingness to pay
*-------------------
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg wp1_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Willingness to comply
*----------------------
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg p4 i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* SOCIAL CAPITAL

* Patience
*---------
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d33_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Generalized trust
*------------------
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d16_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Risk taking
*------------
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d32_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Dictator game sharing
*----------------------
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d34_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)

* Charitable giving
*------------------
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==1, vce(cl currentukareaofresidence)
reg d35_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highnews==0, vce(cl currentukareaofresidence)


*****************************************
* S10 Table              		 	    *
* Main effects for control group only   *
*****************************************

* US *

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1 & treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)
reg d18_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1 & treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)

* Trust in elected politicians
*-----------------------------
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1 & treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)
reg d19_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1 & treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)

* Government competency
*----------------------
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1 & treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)
reg d30_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1 & treatment!=1 & treatment!=2, vce(cl currentusstateofresidence)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminister government
*---------------------------------
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1 & treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)
reg d17_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1 & treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)

* Trust in elected politicians
*-----------------------------
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1 & treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)
reg d18_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1 & treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)

* Government competency
*----------------------
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1 & treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)
reg d29_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1 & treatment!=1 & treatment!=2, vce(cl currentukareaofresidence)


*****************************************
* S11 Table            		 	        *
* Effect of concern and anxiety         *
*****************************************

* Concern for family on trust in government US
*---------------------------------------------
reg d18_us p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d18_us p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d18_us p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Concern for family on trust in elected politicians US
*------------------------------------------------------
reg d19_us p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d19_us p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d19_us p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Concern for family on compliance US
*------------------------------------
reg p4 p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg p4 p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg p4 p2 i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Concern for family on trust in government UK
*---------------------------------------------
reg d17_uk p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d17_uk p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d17_uk p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Concern for family on trust in elected politicians UK
*------------------------------------------------------
reg d18_uk p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d18_uk p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d18_uk p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Concern for family on compliance UK
*------------------------------------
reg p4 p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg p4 p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg p4 p2 i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)


*****************************************
* S12 Table             		 	    *
* Treatment interactions with concern   *
*****************************************

* US * 

* GOVERNMENT ASSESSMENT

* Trust in federal government
*----------------------------
reg d18_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d18_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d18_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Trust in elected politicians
*--------------------------------------------------------------------------------------
reg d19_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d19_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d19_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* Government competency
*----------------------
reg d30_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus], vce(cl currentusstateofresidence)
reg d30_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if highexposure==1, vce(cl currentusstateofresidence)
reg d30_us 1.vaccine#1.p2_binary i.gender d4_us d21_us age i.republican i.twicesampled [pweight = webalus] if d25_us==1, vce(cl currentusstateofresidence)

* UK *

* GOVERNMENT ASSESSMENT

* Trust in Westminster government
*--------------------------------
reg d17_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d17_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d17_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Trust in elected politicians
*------------------------------
reg d18_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d18_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d18_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)

* Government competency
*----------------------
reg d29_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk], vce(cl currentukareaofresidence)
reg d29_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if highexposure==1, vce(cl currentukareaofresidence)
reg d29_uk 1.vaccine#1.p2_binary i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = webaluk] if d24_uk==1, vce(cl currentukareaofresidence)



*****************************************
* S13 Table              		 	    *
* Placebo Treatment effects             *
*****************************************

* US * 

* Climate change
*---------------
reg d14_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d14_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d14_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* UBI
*----
reg d12_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d12_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d12_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* Redistribution
*---------------
reg d8_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight], vce(cl currentusstateofresidence)
reg d8_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentusstateofresidence)
reg d8_us i.vaccine i.gender d4_us d21_us age i.republican i.twicesampled [pweight = weight] if d25_us==1, vce(cl currentusstateofresidence)

* UK * 

* Climate change
*---------------
reg d13_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d13_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d13_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* UBI
*----
reg d11_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d11_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d11_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)

* Redistribution
*---------------
reg d7_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight], vce(cl currentukareaofresidence)
reg d7_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if highexposure==1, vce(cl currentukareaofresidence)
reg d7_uk i.vaccine i.gender d3_uk d20_uk age i.conservative i.twicesampled [pweight = weight] if d24_uk==1, vce(cl currentukareaofresidence)



***********************************
* S14 Table          		 	  *
* Balance test of non-respondents *
***********************************

gen d18_us_r=1 if d18_us!=.
replace d18_us_r=0 if d18_us==.
gen d19_us_r=1 if d19_us!=.
replace d19_us_r=0 if d19_us==.
gen d30_us_r=1 if d30_us!=.
replace d30_us_r=0 if d30_us==.
gen d17_uk_r=1 if d17_uk!=.
replace d17_uk_r=0 if d17_uk==.
gen d18_uk_r=1 if d18_uk!=.
replace d18_uk_r=0 if d18_uk==.
gen d29_uk_r=1 if d29_uk!=.
replace d29_uk_r=0 if d29_uk==.

* US *
ttest gender if sample=="US", by(d18_us_r)
ttest age if sample=="US", by(d18_us_r)
ttest edu_us if sample=="US" & wave!=21, by(d18_us_r)
ttest d4_us if sample=="US" & wave!=21, by(d18_us_r)
ttest nowork_us if sample=="US" & wave!=21, by(d18_us_r)

* UK *
ttest gender if sample=="UK", by(d17_uk_r)
ttest age if sample=="UK", by(d17_uk_r)
ttest edu_uk if sample=="UK" & wave!=21, by(d17_uk_r)
ttest d3_uk if sample=="UK" & wave!=21, by(d17_uk_r)
ttest nowork_uk if sample=="UK" & wave!=21, by(d17_uk_r)

* US *
ttest gender if sample=="US", by(d19_us_r)
ttest age if sample=="US", by(d19_us_r)
ttest edu_us if sample=="US" & wave!=21, by(d19_us_r)
ttest d4_us if sample=="US" & wave!=21, by(d19_us_r)
ttest nowork_us if sample=="US" & wave!=21, by(d19_us_r)

* UK *
ttest gender if sample=="UK", by(d18_uk_r)
ttest age if sample=="UK", by(d18_uk_r)
ttest edu_uk if sample=="UK" & wave!=21, by(d18_uk_r)
ttest d3_uk if sample=="UK" & wave!=21, by(d18_uk_r)
ttest nowork_uk if sample=="UK" & wave!=21, by(d18_uk_r)

* US *
ttest gender if sample=="US", by(d30_us_r)
ttest age if sample=="US", by(d30_us_r)
ttest edu_us if sample=="US" & wave!=21, by(d30_us_r)
ttest d4_us if sample=="US" & wave!=21, by(d30_us_r)
ttest nowork_us if sample=="US" & wave!=21, by(d30_us_r)

* UK *
ttest gender if sample=="UK", by(d29_uk_r)
ttest age if sample=="UK", by(d29_uk_r)
ttest edu_uk if sample=="UK" & wave!=21, by(d29_uk_r)
ttest d3_uk if sample=="UK" & wave!=21, by(d29_uk_r)
ttest nowork_uk if sample=="UK" & wave!=21, by(d29_uk_r)


****************************************************************
* S15 Table          		 	  						       *
* Treatment effects of vaccine announcement using Edelman data *
****************************************************************

* PLEASE NOTE: THE ANALYSIS BELOW WERE RUN ON A DIFFERENT DATASET
* WE PRESENT OUR CODE, BUT CANNOT SHARE THE DATA ITSELF FOR OWNERSHIP REASONS
* THE DATA CAN BE REQUESTED FROM EDELMAN

* Create day clusters
* Survey conducted between 19 October and 18 November
* A few dates are both in US and European format
gen day = .
sort date
replace day = 1 if strpos(date, "10/19/2020")
replace day = 2 if strpos(date, "10/20/2020")
replace day = 3 if strpos(date, "10/21/2020")
replace day = 4 if strpos(date, "10/22/2020")
replace day = 5 if strpos(date, "10/23/2020")
replace day = 6 if strpos(date, "10/24/2020")
replace day = 7 if strpos(date, "10/25/2020")
replace day = 8 if strpos(date, "10/26/2020")
replace day = 9 if strpos(date, "10/27/2020")
replace day = 10 if strpos(date, "10/28/2020")
replace day = 11 if strpos(date, "10/29/2020")
replace day = 12 if strpos(date, "10/30/2020")
replace day = 13 if strpos(date, "10/31/2020")

replace day = 14 if strpos(date, "11/01/2020")
replace day = 14 if strpos(date, "1/11/2020")
replace day = 15 if strpos(date, "11/02/2020")
replace day = 15 if strpos(date, "2/11/2020")
replace day = 16 if strpos(date, "11/03/2020")
replace day = 16 if strpos(date, "3/11/2020")
replace day = 17 if strpos(date, "11/04/2020")
replace day = 17 if strpos(date, "4/11/2020")
replace day = 18 if strpos(date, "11/05/2020")
replace day = 18 if strpos(date, "5/11/2020")
replace day = 19 if strpos(date, "11/06/2020")
replace day = 19 if strpos(date, "6/11/2020")
replace day = 20 if strpos(date, "11/07/2020")
replace day = 20 if strpos(date, "7/11/2020")
replace day = 21 if strpos(date, "11/08/2020")
replace day = 21 if strpos(date, "8/11/2020")
replace day = 22 if strpos(date, "11/09/2020")
replace day = 22 if strpos(date, "9/11/2020")
replace day = 23 if strpos(date, "11/10/2020")
replace day = 23 if strpos(date, "10/11/2020")
replace day = 24 if strpos(date, "11/11/2020")
replace day = 25 if strpos(date, "11/12/2020")
replace day = 25 if strpos(date, "12/11/2020")

replace day = 26 if strpos(date, "11/13/2020")
replace day = 27 if strpos(date, "11/14/2020")
replace day = 28 if strpos(date, "11/15/2020")
replace day = 29 if strpos(date, "11/16/2020")
replace day = 30 if strpos(date, "11/17/2020")
replace day = 31 if strpos(date, "11/18/2020")

* Vaccine announcement dummy (vaccine day is 22, 1082 on the day)
gen vaccine = . 
replace vaccine = 0 if day < 22
replace vaccine = 1 if day > 22
codebook vaccine // Missing (intentional): the 1082 observations on 9 November
tab vaccine 

* S15 Table_table
reg TRU_INSr1 i.vaccine day [pweight = Weight_GP] if qa=="United States" & TRU_INSr1 < 10, robust // Governmen 
reg TRU_INSr2 i.vaccine day [pweight = Weight_GP] if qa=="United States" & TRU_INSr2 < 10, robust // Media
reg TRU_INSr3 i.vaccine day [pweight = Weight_GP] if qa=="United States" & TRU_INSr3 < 10, robust // Business
reg TRU_INSr4 i.vaccine day [pweight = Weight_GP] if qa=="United States" & TRU_INSr4 < 10, robust // NGOs
reg TRU_INSr8 i.vaccine day [pweight = Weight_GP] if qa=="United States" & TRU_INSr8 < 10, robust // Employer
